home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Split-Join Folder / split < prev   
Encoding:
Text File  |  1989-09-24  |  766 b   |  38 lines  |  [TEXT/MPS ]
  1. # syntax split [<n>] <file> <comments>
  2. # split a file into <n>-line segments
  3. Set lines 1000
  4. If {#} > 1
  5.     If "{1}" =~ /[0-9]+/
  6.         set lines {1}
  7.         shift
  8.     End
  9. End
  10. set l `count -l "{1}"`
  11. set segs `Evaluate {l} div {lines} + 1`
  12. target "{1}"
  13. set i 1
  14. set sel 1
  15. set fin {lines}
  16. Loop
  17.     Echo "Subject: {2} (part {i} of {segs})" > "{1}".p{i}
  18.     Echo "" >> "{1}".p{i}
  19.     Echo "[{2} - part {i} of {segs}]" >> "{1}".p{i}
  20.     Echo "" >> "{1}".p{i}
  21.     Echo "---" >> "{1}".p{i}
  22.     If {fin} ≤ {l}
  23.         find {sel}:{fin}
  24.     Else
  25.         find {sel}:∞
  26.     End
  27.     Catenate § >> "{1}".p{i}
  28.     If {i} == {segs}
  29.         echo "" >> "{1}".p{i}
  30.     End
  31.     Echo "--- end of part {i} ---" >> "{1}".p{i}
  32.     Set i `Evaluate {i} + 1`
  33.     Set sel `Evaluate {sel} + {lines}`
  34.     Set fin `Evaluate {fin} + {lines}`
  35.     Break If {i} > {segs}
  36. End
  37. Close "{1}"
  38.